0 REM INPA & INPN (W.HAPP, 1985)      :
1 :
2 REM 2 STATEMENTS, 0 FUNCTIONS
3 :
4 REM KEYWORD CHARACTERS:  8
5 :
6 REM KEYWORD     ROUTINE  LINE  SER #
7 REM S/INPA      NPA     10218   143
8 REM S/INPN      NPN     10224   144
9 :
10 REM=================================
11 :
142 .ASC "INP[193]INP[206]"
1442 .WORD NPA-1,NPN-1
3478 INL2 JSR $AD8F
3480 STA $49
3482 STY $4A
3484 LDA $7A
3486 LDY $7B
3488 STA $4B
3490 STY $4C
3492 LDX $43
3494 LDY $44
3496 STX $7A
3498 STY $7B
3500 JSR $73
3502 LDA #0
3504 STA $07
3506 STA $08
3508 LDA $7A
3510 LDY $7B
3512 JSR $B48D
3514 JSR $B7E2
3516 JSR $A9DA
3518 LDA $4B
3520 LDY $4C
3522 STA $7A
3524 STY $7B
3526 RTS
3528 ;
10218 NPA LDA #"["
10220 .BYTE $2C
10222 ;
10224 NPN LDA #":"
10226 STA T2
10228 JSR $79
10230 BNE NP1
10232 JMP $AF08
10234 NP1 CMP #$22
10236 BNE NP2
10238 JSR $AEBD
10240 LDA #";"
10242 JSR $AEFF
10244 JSR $AB21
10246 NP2 JSR $B3A6
10248 LDA #","
10250 STA $01FF
10252 LDX #0
10254 STX T3
10256 STX $11
10258 NP3 LDA #$A4
10260 JSR $FFD2
10262 NP4 JSR $FFE4
10264 CMP #$0D
10266 BEQ NP8
10268 CMP #$14
10270 BEQ NP7
10272 CMP #$20
10274 BEQ NP6
10276 CMP #"."
10278 BEQ NP6
10280 CMP #"+"
10282 BEQ NP6
10284 CMP #"-"
10286 BEQ NP6
10288 LDX T2
10290 CPX #"["
10292 BNE NP5
10294 CMP #"[193]"
10296 BCC NP5
10298 CMP #$DB
10300 BCC NP6
10302 NP5 CMP #"0"
10304 BCC NP4
10306 CMP T2
10308 BCS NP4
10310 NP6 LDX $D3
10312 CPX #$4F
10314 BCS NP4
10316 PHA
10318 LDA #$9D
10320 JSR $FFD2
10322 PLA
10324 JSR $FFD2
10326 LDX T3
10328 STA $0200,X
10330 INC T3
10332 BNE NP3
10334 NP7 LDX T3
10336 BEQ NP4
10338 JSR $FFD2
10340 JSR $FFD2
10342 DEC T3
10344 BPL NP3
10346 NP8 LDA #$14
10348 JSR $FFD2
10350 LDX T3
10352 JSR $AACA
10354 STX $43
10356 STY $44
10358 LDX T3
10360 BNE NP9
10362 JMP $ABF3
10364 NP9 JSR $B08B
10366 PHA
10368 JSR $79
10370 BEQ NP10
10372 JMP $AF08
10374 NP10 PLA
10376 LDX T2
10378 CPX #"["
10380 BNE NP11
10382 JMP INL2
10384 NP11 JMP $AC18
10386 ;